Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/mac/media/dirs/BackUp/WildFire.dir/00009_Script_AnswerButton Behavior

Text File | 2002-10-15 | 1KB | 57 lines

--ANSWER BUTTON BEHAVIOR--

property ButtonAnswer, RollOvr, ButtonSound, SpNum, MyNum

--Captures the spritenumber.
on new me
  SpNum = me.spritenum
  MyNum=sprite(SpNum).member.number
end

on getpropertydescriptionlist me,
  set plist= [\
 #ButtonAnswer: [#comment: "Select the button answer: ", #format: #string, #range: ["True", "False", "A", "B", "C", "D"], #default: "True"],\
 #ButtonSound:[#comment: "What sound would you like to play when the button is pressed?",#format:#string,#default:"Click"],\
  #RollOvr: [#comment: "Which member would you like to use for the rollover?", #format: #string, #default: ""]\
 ]
  return plist
end

--Reports that it has been pushed and sends the answer.
on mousedown me
  if soundbusy(2) = 0 then
    if  ButtonSound <> "" then
      sound(2).play(member(ButtonSound))
    end if
    sendallsprites (#ClickedButton, ButtonAnswer)
    sendallsprites (#Done)
  else
    nothing
  end if
end

on mouseupoutside me
  sprite(SpNum).membernum = member(MyNum).number
end

--This is for the rollover.
on mouseenter me
  sprite(SpNum).membernum = member(RollOvr).number
  sprite(SpNum).cursor = 280
  updateStage
end
on mouseleave me
  sprite(SpNum).membernum = member(MyNum).number
  sprite(SpNum).cursor = 293
  updateStage
end